home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 January: Mac OS SDK / Dev.CD Jan 98 SDK1.toast / Development Kits (Disc 1) / Interfaces&Libraries / Universal / Interfaces / AIncludes / Dialogs.a < prev    next >
Encoding:
Text File  |  1997-08-12  |  17.1 KB  |  591 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        Dialogs.a
  3. ;
  4. ;    Contains:    Dialog Manager interfaces.
  5. ;
  6. ;    Version:    Technology:    System 7.5
  7. ;                Release:    Universal Interfaces 3.0.1
  8. ;
  9. ;    Copyright:    © 1985-1997 by Apple Computer, Inc., all rights reserved
  10. ;
  11. ;    Bugs?:        Please include the the file and version information (from above) with
  12. ;                the problem description.  Developers belonging to one of the Apple
  13. ;                developer programs can submit bug reports to:
  14. ;
  15. ;                    devsupport@apple.com
  16. ;
  17. ;
  18.     IF &TYPE('__DIALOGS__') = 'UNDEFINED' THEN
  19. __DIALOGS__ SET 1
  20.  
  21.     IF &TYPE('__TYPES__') = 'UNDEFINED' THEN
  22.     include 'Types.a'
  23.     ENDIF
  24.     IF &TYPE('__MIXEDMODE__') = 'UNDEFINED' THEN
  25.     include 'MixedMode.a'
  26.     ENDIF
  27.     IF &TYPE('__EVENTS__') = 'UNDEFINED' THEN
  28.     include 'Events.a'
  29.     ENDIF
  30.     IF &TYPE('__MACWINDOWS__') = 'UNDEFINED' THEN
  31.     include 'MacWindows.a'
  32.     ENDIF
  33.     IF &TYPE('__TEXTEDIT__') = 'UNDEFINED' THEN
  34.     include 'TextEdit.a'
  35.     ENDIF
  36.  
  37.  
  38.                                                             ; new, more standard names for dialog item types
  39. kControlDialogItem                EQU        4
  40. kButtonDialogItem                EQU        4
  41. kCheckBoxDialogItem                EQU        5
  42. kRadioButtonDialogItem            EQU        6
  43. kResourceControlDialogItem        EQU        7
  44. kStaticTextDialogItem            EQU        8
  45. kEditTextDialogItem                EQU        16
  46. kIconDialogItem                    EQU        32
  47. kPictureDialogItem                EQU        64
  48. kUserDialogItem                    EQU        0
  49. kItemDisableBit                    EQU        128
  50.  
  51.                                                             ; old names for dialog item types
  52. ctrlItem                        EQU        4
  53. btnCtrl                            EQU        0
  54. chkCtrl                            EQU        1
  55. radCtrl                            EQU        2
  56. resCtrl                            EQU        3
  57. statText                        EQU        8
  58. editText                        EQU        16
  59. iconItem                        EQU        32
  60. picItem                            EQU        64
  61. userItem                        EQU        0
  62. itemDisable                        EQU        128
  63.  
  64.                                                             ; standard dialog item numbers
  65. kStdOkItemIndex                    EQU        1
  66. kStdCancelItemIndex                EQU        2                    ; old names
  67. ok                                EQU        1
  68. cancel                            EQU        2
  69.  
  70.                                                             ; standard icon resource id's     
  71. kStopIcon                        EQU        0
  72. kNoteIcon                        EQU        1
  73. kCautionIcon                    EQU        2                    ; old names
  74. stopIcon                        EQU        0
  75. noteIcon                        EQU        1
  76. cautionIcon                        EQU        2
  77.  
  78.  
  79.     IF OLDROUTINENAMES THEN
  80.  
  81. ;   These constants lived briefly on ETO 16.  They suggest
  82. ;   that there is only one index you can use for the OK 
  83. ;   item, which is not true.  You can put the ok item 
  84. ;   anywhere you want in the DITL.
  85.  
  86.  
  87.  
  88. kOkItemIndex                    EQU        1
  89. kCancelItemIndex                EQU        2
  90.     ENDIF    ; OLDROUTINENAMES
  91. ;     Dialog Item List Manipulation Constants    
  92. ; typedef SInt16                         DITLMethod
  93.  
  94.  
  95. overlayDITL                        EQU        0
  96. appendDITLRight                    EQU        1
  97. appendDITLBottom                EQU        2
  98. ; typedef SInt16                         StageList
  99.  
  100. ;  DialogRef is obsolete. Use DialogPtr instead.
  101. ; typedef DialogPtr                     DialogRef
  102.  
  103. DialogRecord            RECORD 0
  104. window                     ds        WindowRecord    ; offset: $0 (0)
  105. items                     ds.l    1                ; offset: $9C (156)
  106. textH                     ds.l    1                ; offset: $A0 (160)
  107. editField                 ds.w    1                ; offset: $A4 (164)
  108. editOpen                 ds.w    1                ; offset: $A6 (166)
  109. aDefItem                 ds.w    1                ; offset: $A8 (168)
  110. sizeof                     EQU *                    ; size:   $AA (170)
  111.                         ENDR
  112. ; typedef struct DialogRecord *            DialogPeek
  113.  
  114. DialogTemplate            RECORD 0
  115. boundsRect                 ds        Rect            ; offset: $0 (0)
  116. procID                     ds.w    1                ; offset: $8 (8)
  117. visible                     ds.b    1                ; offset: $A (10)
  118. filler1                     ds.b    1                ; offset: $B (11)
  119. goAwayFlag                 ds.b    1                ; offset: $C (12)
  120. filler2                     ds.b    1                ; offset: $D (13)
  121. refCon                     ds.l    1                ; offset: $E (14)
  122. itemsID                     ds.w    1                ; offset: $12 (18)
  123. title                     ds        Str255            ; offset: $14 (20)
  124. sizeof                     EQU *                    ; size:   $114 (276)
  125.                         ENDR
  126. ; typedef struct DialogTemplate *        DialogTPtr
  127.  
  128. ; typedef DialogTPtr *                    DialogTHndl
  129.  
  130. AlertTemplate            RECORD 0
  131. boundsRect                 ds        Rect            ; offset: $0 (0)
  132. itemsID                     ds.w    1                ; offset: $8 (8)
  133. stages                     ds.w    1                ; offset: $A (10)
  134. sizeof                     EQU *                    ; size:   $C (12)
  135.                         ENDR
  136. ; typedef struct AlertTemplate *        AlertTPtr
  137.  
  138. ; typedef AlertTPtr *                    AlertTHndl
  139.  
  140. ;  new type abstractions for the dialog manager 
  141. ; typedef SInt16                         DialogItemIndexZeroBased
  142.  
  143. ; typedef SInt16                         DialogItemIndex
  144.  
  145. ; typedef SInt16                         DialogItemType
  146.  
  147. ;  dialog manager callbacks 
  148.  
  149. ; 
  150. ;    NOTE: Code running under MultiFinder or System 7.0 or newer
  151. ;    should always pass NULL to InitDialogs.
  152. ;
  153.  
  154. ;
  155. ; pascal void InitDialogs(void *ignored)
  156. ;
  157.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  158.         _InitDialogs:    OPWORD    $A97B
  159.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  160.         IMPORT_CFM_FUNCTION InitDialogs
  161.     ENDIF
  162.  
  163. ;
  164. ; pascal void ErrorSound(SoundUPP soundProc)
  165. ;
  166.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  167.         _ErrorSound:    OPWORD    $A98C
  168.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  169.         IMPORT_CFM_FUNCTION ErrorSound
  170.     ENDIF
  171.  
  172. ;
  173. ; pascal DialogPtr NewDialog(void *dStorage, const Rect *boundsRect, ConstStr255Param title, Boolean visible, SInt16 procID, WindowPtr behind, Boolean goAwayFlag, SInt32 refCon, Handle items)
  174. ;
  175.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  176.         _NewDialog:    OPWORD    $A97D
  177.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  178.         IMPORT_CFM_FUNCTION NewDialog
  179.     ENDIF
  180.  
  181. ;
  182. ; pascal DialogPtr GetNewDialog(SInt16 dialogID, void *dStorage, WindowPtr behind)
  183. ;
  184.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  185.         _GetNewDialog:    OPWORD    $A97C
  186.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  187.         IMPORT_CFM_FUNCTION GetNewDialog
  188.     ENDIF
  189.  
  190. ;
  191. ; pascal DialogPtr NewColorDialog(void *dStorage, const Rect *boundsRect, ConstStr255Param title, Boolean visible, SInt16 procID, WindowPtr behind, Boolean goAwayFlag, SInt32 refCon, Handle items)
  192. ;
  193.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  194.         _NewColorDialog:    OPWORD    $AA4B
  195.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  196.         IMPORT_CFM_FUNCTION NewColorDialog
  197.     ENDIF
  198.  
  199. ;
  200. ; pascal void CloseDialog(DialogPtr theDialog)
  201. ;
  202.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  203.         _CloseDialog:    OPWORD    $A982
  204.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  205.         IMPORT_CFM_FUNCTION CloseDialog
  206.     ENDIF
  207.  
  208. ;
  209. ; pascal void DisposeDialog(DialogPtr theDialog)
  210. ;
  211.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  212.         _DisposeDialog:    OPWORD    $A983
  213.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  214.         IMPORT_CFM_FUNCTION DisposeDialog
  215.     ENDIF
  216.  
  217. ;
  218. ; pascal void ModalDialog(ModalFilterUPP modalFilter, DialogItemIndex *itemHit)
  219. ;
  220.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  221.         _ModalDialog:    OPWORD    $A991
  222.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  223.         IMPORT_CFM_FUNCTION ModalDialog
  224.     ENDIF
  225.  
  226. ;
  227. ; pascal Boolean IsDialogEvent(const EventRecord *theEvent)
  228. ;
  229.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  230.         _IsDialogEvent:    OPWORD    $A97F
  231.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  232.         IMPORT_CFM_FUNCTION IsDialogEvent
  233.     ENDIF
  234.  
  235. ;
  236. ; pascal Boolean DialogSelect(const EventRecord *theEvent, DialogPtr *theDialog, DialogItemIndex *itemHit)
  237. ;
  238.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  239.         _DialogSelect:    OPWORD    $A980
  240.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  241.         IMPORT_CFM_FUNCTION DialogSelect
  242.     ENDIF
  243.  
  244. ;
  245. ; pascal void DrawDialog(DialogPtr theDialog)
  246. ;
  247.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  248.         _DrawDialog:    OPWORD    $A981
  249.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  250.         IMPORT_CFM_FUNCTION DrawDialog
  251.     ENDIF
  252.  
  253. ;
  254. ; pascal void UpdateDialog(DialogPtr theDialog, RgnHandle updateRgn)
  255. ;
  256.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  257.         _UpdateDialog:    OPWORD    $A978
  258.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  259.         IMPORT_CFM_FUNCTION UpdateDialog
  260.     ENDIF
  261.  
  262. ;
  263. ; pascal void HideDialogItem(DialogPtr theDialog, DialogItemIndex itemNo)
  264. ;
  265.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  266.         _HideDialogItem:    OPWORD    $A827
  267.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  268.         IMPORT_CFM_FUNCTION HideDialogItem
  269.     ENDIF
  270.  
  271. ;
  272. ; pascal void ShowDialogItem(DialogPtr theDialog, DialogItemIndex itemNo)
  273. ;
  274.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  275.         _ShowDialogItem:    OPWORD    $A828
  276.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  277.         IMPORT_CFM_FUNCTION ShowDialogItem
  278.     ENDIF
  279.  
  280. ;
  281. ; pascal DialogItemIndexZeroBased FindDialogItem(DialogPtr theDialog, Point thePt)
  282. ;
  283.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  284.         _FindDialogItem:    OPWORD    $A984
  285.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  286.         IMPORT_CFM_FUNCTION FindDialogItem
  287.     ENDIF
  288.  
  289. ;
  290. ; pascal DialogItemIndex Alert(SInt16 alertID, ModalFilterUPP modalFilter)
  291. ;
  292.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  293.         _Alert:    OPWORD    $A985
  294.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  295.         IMPORT_CFM_FUNCTION Alert
  296.     ENDIF
  297.  
  298. ;
  299. ; pascal DialogItemIndex StopAlert(SInt16 alertID, ModalFilterUPP modalFilter)
  300. ;
  301.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  302.         _StopAlert:    OPWORD    $A986
  303.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  304.         IMPORT_CFM_FUNCTION StopAlert
  305.     ENDIF
  306.  
  307. ;
  308. ; pascal DialogItemIndex NoteAlert(SInt16 alertID, ModalFilterUPP modalFilter)
  309. ;
  310.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  311.         _NoteAlert:    OPWORD    $A987
  312.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  313.         IMPORT_CFM_FUNCTION NoteAlert
  314.     ENDIF
  315.  
  316. ;
  317. ; pascal DialogItemIndex CautionAlert(SInt16 alertID, ModalFilterUPP modalFilter)
  318. ;
  319.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  320.         _CautionAlert:    OPWORD    $A988
  321.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  322.         IMPORT_CFM_FUNCTION CautionAlert
  323.     ENDIF
  324.  
  325. ;
  326. ; pascal void GetDialogItem(DialogPtr theDialog, DialogItemIndex itemNo, DialogItemType *itemType, Handle *item, Rect *box)
  327. ;
  328.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  329.         _GetDialogItem:    OPWORD    $A98D
  330.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  331.         IMPORT_CFM_FUNCTION GetDialogItem
  332.     ENDIF
  333.  
  334. ;
  335. ; pascal void SetDialogItem(DialogPtr theDialog, DialogItemIndex itemNo, DialogItemType itemType, Handle item, const Rect *box)
  336. ;
  337.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  338.         _SetDialogItem:    OPWORD    $A98E
  339.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  340.         IMPORT_CFM_FUNCTION SetDialogItem
  341.     ENDIF
  342.  
  343. ;
  344. ; pascal void ParamText(ConstStr255Param param0, ConstStr255Param param1, ConstStr255Param param2, ConstStr255Param param3)
  345. ;
  346.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  347.         _ParamText:    OPWORD    $A98B
  348.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  349.         IMPORT_CFM_FUNCTION ParamText
  350.     ENDIF
  351.  
  352. ;
  353. ; pascal void SelectDialogItemText(DialogPtr theDialog, DialogItemIndex itemNo, SInt16 strtSel, SInt16 endSel)
  354. ;
  355.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  356.         _SelectDialogItemText:    OPWORD    $A97E
  357.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  358.         IMPORT_CFM_FUNCTION SelectDialogItemText
  359.     ENDIF
  360.  
  361. ;
  362. ; pascal void GetDialogItemText(Handle item, Str255 text)
  363. ;
  364.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  365.         _GetDialogItemText:    OPWORD    $A990
  366.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  367.         IMPORT_CFM_FUNCTION GetDialogItemText
  368.     ENDIF
  369.  
  370. ;
  371. ; pascal void SetDialogItemText(Handle item, ConstStr255Param text)
  372. ;
  373.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  374.         _SetDialogItemText:    OPWORD    $A98F
  375.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  376.         IMPORT_CFM_FUNCTION SetDialogItemText
  377.     ENDIF
  378.  
  379. ;
  380. ; pascal SInt16 GetAlertStage(void)
  381. ;
  382.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  383.         Macro
  384.         _GetAlertStage        &dest=(sp)
  385.             move.w            $0A9A,&dest
  386.         EndM
  387.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  388.         IMPORT_CFM_FUNCTION GetAlertStage
  389.     ENDIF
  390.  
  391. ;
  392. ; pascal void SetDialogFont(SInt16 value)
  393. ;
  394.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  395.         Macro
  396.         _SetDialogFont        &src=(sp)+
  397.             move.w            &src,$0AFA
  398.         EndM
  399.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  400.         IMPORT_CFM_FUNCTION SetDialogFont
  401.     ENDIF
  402.  
  403. ;
  404. ; pascal void ResetAlertStage(void )
  405. ;
  406.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  407.         Macro
  408.         _ResetAlertStage
  409.             clr.w               $0A9A
  410.         EndM
  411.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  412.         IMPORT_CFM_FUNCTION ResetAlertStage
  413.     ENDIF
  414.  
  415.  
  416. ;
  417. ; pascal void AppendDITL(DialogPtr theDialog, Handle theHandle, DITLMethod method)
  418. ;
  419.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  420.         IMPORT_CFM_FUNCTION AppendDITL
  421.     ENDIF
  422.  
  423. ;
  424. ; pascal DialogItemIndex CountDITL(DialogPtr theDialog)
  425. ;
  426.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  427.         IMPORT_CFM_FUNCTION CountDITL
  428.     ENDIF
  429.  
  430. ;
  431. ; pascal void ShortenDITL(DialogPtr theDialog, DialogItemIndex numberItems)
  432. ;
  433.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  434.         IMPORT_CFM_FUNCTION ShortenDITL
  435.     ENDIF
  436.  
  437. ;
  438. ; pascal OSErr GetStdFilterProc(ModalFilterUPP *theProc)
  439. ;
  440.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  441.         Macro
  442.         _GetStdFilterProc
  443.             move.w              #$0203,D0
  444.             dc.w                $AA68
  445.         EndM
  446.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  447.         IMPORT_CFM_FUNCTION GetStdFilterProc
  448.     ENDIF
  449.  
  450. ;
  451. ; pascal OSErr SetDialogDefaultItem(DialogPtr theDialog, DialogItemIndex newItem)
  452. ;
  453.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  454.         Macro
  455.         _SetDialogDefaultItem
  456.             move.w              #$0304,D0
  457.             dc.w                $AA68
  458.         EndM
  459.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  460.         IMPORT_CFM_FUNCTION SetDialogDefaultItem
  461.     ENDIF
  462.  
  463. ;
  464. ; pascal OSErr SetDialogCancelItem(DialogPtr theDialog, DialogItemIndex newItem)
  465. ;
  466.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  467.         Macro
  468.         _SetDialogCancelItem
  469.             move.w              #$0305,D0
  470.             dc.w                $AA68
  471.         EndM
  472.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  473.         IMPORT_CFM_FUNCTION SetDialogCancelItem
  474.     ENDIF
  475.  
  476. ;
  477. ; pascal OSErr SetDialogTracksCursor(DialogPtr theDialog, Boolean tracks)
  478. ;
  479.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  480.         Macro
  481.         _SetDialogTracksCursor
  482.             move.w              #$0306,D0
  483.             dc.w                $AA68
  484.         EndM
  485.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  486.         IMPORT_CFM_FUNCTION SetDialogTracksCursor
  487.     ENDIF
  488.  
  489.     IF OLDROUTINENAMES THEN
  490.     ENDIF    ; OLDROUTINENAMES
  491. ; 
  492. ;    *****************************************************************************
  493. ;    *                                                                           *
  494. ;    * The conditional STRICT_DIALOGS has been removed from this interface file. *
  495. ;    * The accessor macros to a DialogRecord are no longer necessary.            *
  496. ;    *                                                                           *
  497. ;    * All ≈Ref Types have reverted to their original Handle and Ptr Types.      *
  498. ;    *                                                                           *
  499. ;    *****************************************************************************
  500. ;
  501. ;    Details:
  502. ;    The original purpose of the STRICT_ conditionals and accessor macros was to
  503. ;    help ease the transition to Copland.  Shared data structures are difficult
  504. ;    to coordinate in a preemptive multitasking OS.  By hiding the fields in a
  505. ;    WindowRecord and other data structures, we would begin the migration to the
  506. ;    discipline wherein system data structures are completely hidden from
  507. ;    applications.
  508. ;    
  509. ;    After many design reviews, we finally concluded that with this sort of
  510. ;    migration, the system could never tell when an application was no longer
  511. ;    peeking at a WindowRecord, and thus the data structure might never become
  512. ;    system owned.  Additionally, there were many other limitations in the
  513. ;    classic toolbox that were begging to be addressed.  The final decision was
  514. ;    to leave the traditional toolbox as a compatibility mode.
  515. ;    
  516. ;    We also decided to use the Handle and Ptr based types in the function
  517. ;    declarations.  For example, NewWindow now returns a WindowPtr rather than a
  518. ;    WindowRef.  The Ref types are still defined in the header files, so all
  519. ;    existing code will still compile exactly as it did before.  There are
  520. ;    several reasons why we chose to do this:
  521. ;    
  522. ;    - The importance of backwards compatibility makes it unfeasible for us to
  523. ;    enforce real opaque references in the implementation anytime in the
  524. ;    foreseeable future.  Therefore, any opaque data types (e.g. WindowRef,
  525. ;    ControlRef, etc.) in the documentation and header files would always be a
  526. ;    fake veneer of opacity.
  527. ;    
  528. ;    - There exists a significant base of books and sample code that neophyte
  529. ;    Macintosh developers use to learn how to program the Macintosh.  These
  530. ;    books and sample code all use direct data access.  Introducing opaque data
  531. ;    types at this point would confuse neophyte programmers more than it would
  532. ;    help them.
  533. ;    
  534. ;    - Direct data structure access is used by nearly all Macintosh developers. 
  535. ;    Changing the interfaces to reflect a false opacity would not provide any
  536. ;    benefit to these developers.
  537. ;    
  538. ;    - Accessor functions are useful in and of themselves as convenience
  539. ;    functions, without being tied to opaque data types.  We will complete and
  540. ;    document the Windows and Dialogs accessor functions in an upcoming release
  541. ;    of the interfaces.
  542. ;
  543.  
  544.  
  545.  
  546. ;
  547. ; pascal void CouldDialog(SInt16 dialogID)
  548. ;
  549.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  550.         _CouldDialog:    OPWORD    $A979
  551.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  552.         IMPORT_CFM_FUNCTION CouldDialog
  553.     ENDIF
  554.  
  555. ;
  556. ; pascal void FreeDialog(SInt16 dialogID)
  557. ;
  558.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  559.         _FreeDialog:    OPWORD    $A97A
  560.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  561.         IMPORT_CFM_FUNCTION FreeDialog
  562.     ENDIF
  563.  
  564. ;
  565. ; pascal void CouldAlert(SInt16 alertID)
  566. ;
  567.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  568.         _CouldAlert:    OPWORD    $A989
  569.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  570.         IMPORT_CFM_FUNCTION CouldAlert
  571.     ENDIF
  572.  
  573. ;
  574. ; pascal void FreeAlert(SInt16 alertID)
  575. ;
  576.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  577.         _FreeAlert:    OPWORD    $A98A
  578.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  579.         IMPORT_CFM_FUNCTION FreeAlert
  580.     ENDIF
  581.  
  582.  
  583.  
  584.  
  585.  
  586.  
  587.  
  588.  
  589.     ENDIF ; __DIALOGS__ 
  590.  
  591.